;		SOURCE Login Script File
;              Please see READ.ME for details
;SOURCE LOGIN USING THE SOURCE NETWORK
reply &
wait delay 5
reply D
wait delay 5
reply |
wait delay 5
when "=" jump Login
WAit Delay 15
label Send_CRs
reply |
Wait quiet 10
jump Send_CRs
label Login
When -
REply D1|
WAit For "@"
REply C 30124|
WAit String "connected"
WAit Char ">"
REply *** ID ***|
;
;SOURCE LOGIN USING TELENET
;jump begin
;label PLEASE
;clear
;mess    PLEASE TRY AGAIN.  SOURCE IS NOT RESPONDING.
;.
;bye
;abort 
;label begin
;wait delay 20
;reply @
;wait delay 10
;reply |
;wait delay 10
;reply |
;whenever "TERMINAL=" reply |
;wait char "@"
;reply C 30124 |
;wait char ">"
;reply *** ID ***|
;wait string "->"
;otimeout 200 jump PLEASE
;END TELENET LOGIN